-- stack: in.1
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=160, y1=94, x2=672, y2=436)
-- screen: Rect(x1=0, y1=0, x2=832, y2=624)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 4025
-- card count: 3
-- first card id: 3716
-- list block id: 2269
-- print block id: 0
-- font table block id: 3577
-- style table block id: 3306
-- free block count: 0
-- free size: 0 bytes
-- total size: 21952 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x02018000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108001
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDD3FA1A4
----- HyperTalk script -----
∞∞∞∞ Script info for "List Randomizer 2.1", STACK ∞∞∞∞

HANDLERS:
-- closeStack, openStack, readFile, saveFile

GLOBALS:
-- fName, status, uL

STATS: 1671 chars, 76 lines, 3/14/92, 2:22 PM
∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
--
--  Script of stack "List Randomizer"
--
--  Written by Jack W. Richens, Jr.
--             Richens Consulting
--             P.O. Box 1853
--             Columbia, MO  65205
--             (314) 445-8042
--
--  Copyright 1991, Richens Consulting, Columbia, Missouri
--
--  THIS STACK IS FOR FREE DISTRIBUTION!  IT CANNOT BE USED
--  COMMERCIALLY OR DISTRUIBUTED FOR PROFIT!
--
--
--  This script contains startup and subroutine scripts.
--
on openStack
  global uL,fName,status
  put the userlevel into uL
  If the shiftkey is not down then
    hide menubar
    set the userlevel to 2
  end if

  --put empty into cd fld "TheList"
  put empty into fName
  put "N" into status
end openStack

on closeStack
  global uL,fName,status
  if status is "N" and cd fld "TheList" is not empty then
    --
    --  need to save list before exiting
    --
    answer "Save changes before leaving?" with "Yes" or "No"
    if it is "Yes" then do saveFile
  end if

  set the userLevel to uL
end closeStack

on readFile
  global uL,fName,status
  --
  answer file "List location..." of type TEXT  -- REV 910916
  if it is empty then exit readFile
  put it into fName
  --
  open file fName
  put 1 into lNumber
  read from file fName until return
  repeat until it is empty
    put it after cd fld "TheList"
    read from file fName until return
  end repeat

  close file fName
end readFile

on saveFile
  global uL,fName,status
  --
  if fName is empty then
    ask file "Save list as..." with "TheList.txt"
    if it is empty then exit saveFile
    put it into fName
  end if
  --
  open file fName
  write cd fld "TheList" to file fName

  close file fName
end saveFile